home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm2.d64 / puzzle boot 74 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  40 lines
  1. 10 POKE53281,.:POKE53280,12:PRINT"[147]"
  2. 20 GOSUB260
  3. 30 SYS57812"PSB 74",8,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
  4. 40 POKE53272,29
  5. 50 B$="      [221][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][221]"
  6. 60 C$="                      "
  7. 70 PRINT"      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  8. 80 FORI=1TO7:PRINTB$:NEXT
  9. 90 PRINT"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  10. 100 POKE214,8:PRINT
  11. 120 PRINT:PRINTTAB(9)"[212]HE[208][213][218][218][204][197][208][193][199][197]"
  12. 140 PRINT:PRINTTAB(9)"[154][193][159][204][207][193][196][211][212][193][210][154][197][216][195][204][213][211][201][214][197]"
  13. 150 PRINT
  14. 170 SYS57812"WD 74",8,0:POKE780,0:POKE781,16:POKE782,205:SYS65493
  15. 172 SYS57812"FH 74",8,0:POKE780,0:POKE781,106:POKE782,129:SYS65493
  16. 174 SYS33136,28000,"MUSIC 74"
  17. 176 SYS57812"SP 74",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
  18. 178 SYS33133,28000,57344,5120
  19. 180 SYS33130,57344,57344+5119,.
  20. 182 SYS33130,49152,51126,.
  21. 190 OPEN15,8,15,"R0:PUZZLE PAGE 74=PUZZLE PAGE 74":INPUT#15,ER:CLOSE15
  22. 200 PRINT"[144]LOAD"CHR$(34)"PUZZLE PAGE 74"CHR$(34)",8"
  23. 210 PRINT"RUN"
  24. 220 POKE43,1:POKE44,64:POKE16384,0
  25. 230 POKE631,13:POKE632,13:POKE633,13:POKE198,3
  26. 240 NEW
  27. 250 :
  28. 260 POKE214,15:PRINT
  29. 270 PRINT"  [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  30. 280 PRINT"  [152]                                    "
  31. 290 PRINT"            [212][200][197] [208][213][218][218][204][197] [208][193][199][197]           "
  32. 300 PRINT"     [194]Y [194]ARBARA [200]. [211]CHULAK (C) 1990   "
  33. 310 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #74     "
  34. 320 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
  35. 330 PRINT"          [193][204][204] [210][201][199][200][212][211] [210][197][211][197][210][214][197][196]         "
  36. 340 PRINT"                                      "
  37. 350 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  38. 360 RETURN
  39. 10000 OPEN15,8,15,"S0:PUZZLE BOOT 74":CLOSE15:SAVE"0:PUZZLE BOOT 74",8:END
  40.